home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 11 / 011.d81 / bit banner (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  101 lines
  1. 30 print"[147]"tab(14)"[164][164][164][164][164][164][164][164][164][164][164][164]"
  2. 40 printtab(10)"[192][192][192][192] bit banner [146][192][192][192][192]"
  3. 50 printtab(10)"by jerry sturdivant"
  4. 60 print"        [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  5. 70 print"        .........................."
  6. 80 print"          [166][166][166]  [166][166][166][166][166]"
  7. 90 print"         [166]   [166]  [166]   [166]     [166]"
  8. 100 print"         [166]   [166]  [166]   [166]     ^"
  9. 110 print"         [166][166][166][166][166]  [166][166][166][166]    symbol"
  10. 120 print"         [166]   [166]  [166]   [166]"
  11. 130 print"         [166]   [166]  [166]   [166] [164]"
  12. 140 print"      [164]  [166]   [166] [166][166][166][166][166]  [164]_height (11 max)"
  13. 150 print"      [164] .........................."
  14. 160 print"      ^ [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  15. 170 print"margin[203] [167][167]   [167][167]_spacing"
  16. 180 print"         ^"
  17. 190 print"      column"
  18. 200 print"       width"
  19. 210 input"select height";sh
  20. 220 input"select column width";sw
  21. 230 printtab(15)sw
  22. 240 input"[145]select spacing";ss
  23. 250 printtab(14)int((80-sh*7)/2)
  24. 260 input"[145]select margin";sm
  25. 270 input"select symbol";p$(1)
  26. 280 print"[147] 0   of 255 charactors maximum"
  27. 290 printtab(13)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  28. 300 printtab(6)"[192][192][192][192][192][192][192] type message [146][192][192][192][192][192][192][192]"
  29. 310 print"     alphabet - numbers and ()*+-./"
  30. 320 printtab(6)"'inst del' for corrections"
  31. 330 printtab(6)"space bar for printing pause"
  32. 340 printtab(15)"[192][192][192][192][192][192][192][192][192][192]"
  33. 350 print"[175]"
  34. 360 d$="":p$(0)=" ":n=1:gosub 910
  35. 370 get g$:ifg$=""then 370
  36. 380 if g$=chr$(20)then 490
  37. 390 if g$=chr$(13)then 550
  38. 400 k=asc(g$):if k<40 and k<>32 or k>90 or k=44 or l=255 then 370
  39. 410 if len(m$(n))=38 then n=n+1:print"[157][157] "
  40. 420 m$(n)=m$(n)+g$:l=l+1
  41. 430 print"    "l;d$
  42. 440 for d=1 to n
  43. 450 print
  44. 460 next d
  45. 470 print m$(n)+"[175]"
  46. 480 goto 370
  47. 490 if l=0 and n=1 then 280
  48. 500 m$(n)=left$(m$(n),len(m$(n))-1)
  49. 510 print"[145]"m$(n)+"  ":l=l-1:ifl=0then280
  50. 520 if m$(n)=""then n=n-1
  51. 530 if n=0 then 410
  52. 540 goto 430
  53. 550 for i=1 to n
  54. 560 m$=m$+m$(i)
  55. 570 next i
  56. 580 close 4:open 4,4
  57. 590 for l=1 to len(m$)
  58. 600 n=(asc(mid$(m$,l,1))-39):n=n-((n=-7)*12)
  59. 610 f$=mid$(a$,n*5-4,5)
  60. 620 for j=0 to 4
  61. 630 b(j)=asc(mid$(f$,j+1))
  62. 640 b(j)=b(j)+(b(j)>96)*96+(b(j)<96)*32+((b(j)=255)*33)
  63. 650 next j
  64. 660 for c=0 to 4
  65. 670 for r=6 to 0 step-1
  66. 680 l(c,r)=int(b(c)/2^r)
  67. 690 b(c)=b(c)-l(c,r)*2^r
  68. 700 next r,c
  69. 710 print#4
  70. 720 for c=0 to 4
  71. 730 for w=1 to sw
  72. 740 for m=1 to sm
  73. 750 print#4," ";
  74. 760 next m
  75. 770 for r=0 to 6
  76. 780 for h=1 to sh
  77. 790 print#4,p$(l(c,r));
  78. 800 next h
  79. 810 getz$:ifz$=""then 830
  80. 820 getz$:ifz$=""then 820
  81. 830 next r
  82. 840 print#4
  83. 850 next w,c
  84. 860 for s=1 to ss
  85. 870 print#4
  86. 880 next s,l
  87. 890 close 4
  88. 900 goto63000
  89. 910 a$="  <b[161]  [161]b<j<[223]<j((^((     ((((( ##"
  90. 915 a$=a$+"  #$(0[192]^[165][169][177]^ a[223]! c[165][165][169]qb[161][169][169]v,4d[223]$"
  91. 920 a$=a$+"[210][177][177][177][190]>i[169][169][174]@[167][168][176][192]v[169][169][169]vq[169][169][170]\  h   !f"
  92. 925 a$=a$+"  (4b[161][161]44444[161][161]b4(@[160][165][168]p^[161][189][181]]_[168][168][168]_"
  93. 930 a$=a$+"[161][223][169][169]v^[161][161][161]b[161][223][161][161]^[223][169][169][169][161][223][168][168][168][160]^[161][161][169][174][223]((([223] [161][223][161] "
  94. 935 a$=a$+chr$(34)+"![161][255][160][223](4b[161]"
  95. 940 a$=a$+"[223]!!!![223]@8@[223][223]0($[223]^[161][161][161]^[223][168][168][168]p^[161][165][162]][223][168][172][170]qr[169][169][169]f[160][160][223][160][160][255]!!![255][208],#,[208][223]"
  96. 950 a$=a$+chr$(34)+","+chr$(34)+"[223][195]4(4[195][208](/([208][163][165][169][177][193]"
  97. 960 return
  98. 63000 rem   connect back to loadstar
  99. 63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  100. 63020 poke631,13:poke632,13:poke198,2:end
  101.